home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / swr.bas < prev    next >
BASIC Source File  |  1994-06-23  |  395b  |  14 lines
  1. 10 PRINT "     ***SWR AS A FUNCTION OF REFLECTED POWER*** "
  2. 20 INPUT "ENTER FORWARD POWER (PF)"; PF
  3. 30 INPUT "ENTER REFLECTED POWER (PR)"; PR
  4. 40 K = (PF/PR)^.5
  5. 50 SWR = (K+1)/(K-1)
  6. 60 PRINT PR "REFLECTED POWER (PR)"
  7. 61 LPRINT PR "REFLECTED POWER (PR)"
  8. 70 PRINT SWR "STANDING WAVE RATIO"
  9. 71 LPRINT SWR "STANDING WAVE RATIO"
  10. 80 PR = PR + 1
  11. 90 IF PR = PF THEN 110
  12. 100 GOTO 40
  13. 110 END
  14.